home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol045 / printer.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  495 b   |  15 lines
  1.  
  2.  
  3.  
  4.  
  5. 5 REM * PUBLIC DOMAIN SOFTWARE *
  6. 10 REM THE FOLLOWING MOD TO THE COMM PROGRAM ON THE DOS DISK WILL
  7. 15 REM TURN THE PRINTER ON OR OFF. FUNCTION KEY F3 WILL TURN
  8. 20 REM THE PRINTER ON AND F4 WILL TURN IT OFF.
  9. 33 KEY(3) ON: KEY(4) ON
  10. 35 ON KEY(3) GOSUB 20000: ON KEY(4) GOSUB 21000
  11. 260 OPEN "SCRN:" FOR OUTPUT AS #2: OPEN "LPT1:" FOR OUTPUT AS #3
  12. 400 PRINT MID$(A$,I,1);: IF PRINTFLAG=1 THEN PRINT #3,MID$(A$,I,1);
  13. 20000 BEEP: PRINTFLAG=1: RETURN
  14. 21000 BEEP: PRINTFLAG=0: RETURN
  15.